home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / pdrd2.zip / RD.ZIP / READ.CH < prev    next >
Text File  |  1993-01-11  |  1KB  |  28 lines
  1. /*
  2.         READ.CH
  3. */
  4.  
  5.  
  6. //ADread() special exit codes
  7. #define RX_NOCONFIRM       -101
  8. #define RX_SAVE            -102
  9. #define RX_ABORT           -103
  10. #define RX_MOUSE           -104
  11.  
  12. #command @ <row>, <col> SAY <sayxpr>                                    ;
  13.                         [<sayClauses,...>]                              ;
  14.                         ADGET <var>                                     ;
  15.                         [<getClauses,...>]                              ;
  16.                                                                         ;
  17.       => @ <row>, <col> SAY <sayxpr> [<sayClauses>]                     ;
  18.        ; @ Row(), Col()+1 GET <var> [<getClauses>]                      ;
  19.        ; ADr_adgetize( getlist )
  20.  
  21.  
  22. #command @ <row>, <col> ADGET <var>                                     ;
  23.                         [<getClauses,...>]                              ;
  24.                                                                         ;
  25.       => @ <row>, <col> GET <var> [<getClauses>]                      ;
  26.        ; ADr_adgetize( getlist )
  27.  
  28.